home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1170 / gepackt.exe / GR™SSE.HRP < prev    next >
Encoding:
Text File  |  1993-08-01  |  1.4 KB  |  44 lines
  1. Variable        Zahl1,2
  2. Variable        Zahl2,2
  3.  
  4.         LABEL           START
  5.         Clear           10
  6.  
  7.         LABEL           FALSCH1
  8.         WriteAt         1,1     "Bitte erste Zahl eingeben (0-99) :    "
  9.         GotoXY          37,1
  10.         ReadStr         Zahl1
  11.         Compare         Zahl1,"0",,FALSCH1
  12.         Compare         Zahl1,"99",FALSCH1
  13.  
  14.         LABEL           FALSCH2
  15.         WriteAt         1,2     "Bitte zweite Zahl eingeben (0-99):    "
  16.         GotoXY          37,2
  17.         ReadStr         Zahl2
  18.         Compare         Zahl2,"0",,FALSCH2
  19.         Compare         Zahl2,"99",FALSCH2
  20.         Color           14
  21.         WriteAt         1,4     Zahl1
  22.         Compare         Zahl1,Zahl2,GRÖSSER,KLEINER
  23.         Write           " und "
  24.         Write           Zahl2
  25.         Write           " sind gleich groß."
  26.         GOTO            ABFRAGE
  27.  
  28.         LABEL           GRÖSSER
  29.         Write           " ist größer als "
  30.         Write           Zahl2
  31.         Write           "."
  32.         GOTO            ABFRAGE
  33.  
  34.         LABEL           KLEINER
  35.         Write           " ist kleiner als "
  36.         Write           Zahl2
  37.         Write           "."
  38.  
  39.         LABEL           ABFRAGE
  40.         Color           12
  41.         GotoXY          1,6
  42.         ReadJN          "Noch einmal? [J/N]",Zahl1
  43.         Compare         Zahl1,"J",,,START
  44.